home *** CD-ROM | disk | FTP | other *** search
/ Electronic Clipper 1996 November / Electronic Clipper 1996 November.iso / ideasrc / pyramid.dir / 00016.ls < prev    next >
Encoding:
Text File  |  1996-10-11  |  1.8 KB  |  72 lines
  1. on startMovie
  2.   global slider, toolH, toolV, gallery
  3.   set the visible of sprite 48 to 0
  4.   set slider to 0
  5.   set the locH of sprite 40 to toolH
  6.   set the locV of sprite 40 to toolV
  7.   set gallery to "slideshow"
  8. end
  9.  
  10. on keyDown
  11.   if the key = 1 then
  12.     set the soundLevel to 1
  13.   end if
  14.   if the key = 2 then
  15.     set the soundLevel to 2
  16.   end if
  17.   if the key = 3 then
  18.     set the soundLevel to 3
  19.   end if
  20.   if the key = 4 then
  21.     set the soundLevel to 4
  22.   end if
  23.   if the key = 5 then
  24.     set the soundLevel to 5
  25.   end if
  26.   if the key = 6 then
  27.     set the soundLevel to 6
  28.   end if
  29.   if the key = 7 then
  30.     set the soundLevel to 7
  31.   end if
  32. end
  33.  
  34. on stopMovie
  35.   global toolH, toolV
  36.   set toolH to the locH of sprite 40
  37.   set toolV to the locV of sprite 40
  38. end
  39.  
  40. on pressit button, swap
  41.   puppetSound("clickdn")
  42.   repeat while the mouseDown
  43.     set the castNum of sprite button to swap
  44.     updateStage()
  45.   end repeat
  46.   puppetSprite(button, 0)
  47.   puppetSound("clickup")
  48. end
  49.  
  50. on tools
  51.   global slider
  52.   repeat with n = 41 to 48
  53.     puppetSprite(n, 1)
  54.   end repeat
  55.   set the locV of sprite 41 to the locV of sprite 40 + 29
  56.   repeat with n = 42 to 46
  57.     set the locV of sprite n to the locV of sprite 40 + 36
  58.   end repeat
  59.   repeat with n = 47 to 48
  60.     set the locV of sprite n to the locV of sprite 40 + 13
  61.   end repeat
  62.   set the locH of sprite 41 to the locH of sprite 40 - 1
  63.   set the locH of sprite 42 to the locH of sprite 40 - 63
  64.   set the locH of sprite 43 to the locH of sprite 40 - 32
  65.   set the locH of sprite 44 to the locH of sprite 40 - 1
  66.   set the locH of sprite 45 to the locH of sprite 40 + 30
  67.   set the locH of sprite 46 to the locH of sprite 40 + 61
  68.   set the locH of sprite 47 to the locH of sprite 40 - 65
  69.   set the locH of sprite 48 to the locH of sprite 40 + 40 + slider
  70.   updateStage()
  71. end
  72.